This file contains a short program that you can type in and use to read
sequential files. Following the listing are directions on using the program to
convert
sequential program files to tokenized program files.
===============================================================================
5100
open15,8,15:open2,8,2,"0:FILENAME,s,r":gosub5140:printchr$(14)
5110 get#2,a$:printa$;:ifst<>0then5160
5120 ifasc(a$)<>13then5110
5125
getc$:ifc$=""then5110
5130 close2:gosub5140:close15:end
5140 input#15,a,b$,c,d:ifa<20thenreturn
5150 print:print"<RVS>"a,b$,c,d:goto5130
5160
ifst=64thenprint:print"<RVS> END OF FILE":goto5130
5170 print:print"<RVS>STATUS ERROR "st:goto5130

    (  <RVS>= CNTRL REVERSE ON )
 (Don't forget the
semi-colon in line 5110)
===============================================================================
      Let's call the program SQ2PRG, since it is
basically designed to help
convert sequential text files to program files; and we will assume that the
sequential program file that you wnat to convert is
called SEQFILE.
     List line 5100 and change FILENAME to SEQFILE.
     Each time you wish to read SEQFILE type GOT	 100 and hit <return>.
     It is a good
idea to read SEQFILE from beginning to end to make sure that
none of the program lines of SEQFILE have the same line numbers as SQ2PRG. If
they do, then you
will have to renumber SQ2PRG to different line numbers. (Be
careful that the GOTO's, etc. are changed accordingly.)
     Now you are ready to convert SEQFILE
to a program file.
     (1) Type GOTO 5100 and press <return>. Each time you do this SQ2PRG will
display the file from the beginning. When the first line o	 SEQFILE scrolls up
to about the top third of the screen hit any key to stop the read. SQ2PRG will
finish displaying the line it is currently reading and stop.

    (2) Cursor up to the first line of the program and hit <return> over that
line and each line that has been displayed. These lines now co-exist as
program
lines with SQ2PRG.
     (3) Type GOTO 5100 and press <return>. Wait until the next section of the
program is displayed, stop the program, and hit
return over each of those
lines. Do this for e	 h section of SEQFILE until all the lines have been
entered.
     (4) When you have finished you will want to
delete the lines in which
SQ2PRG exists before you save your converted program to disk.




